perm filename XSEARC.CMD[WHT,LSP] blob sn#775792 filedate 1984-11-14 generic text, type T, neo UTF8
⊗; XSEARCH macro: <control>x f to string then start on file list page

⊗; Macro to gather up page/line references to a string.
⊗; Note - must inititialize attach buffer nonempty; <control>x f to string.

⊗; This version copies the referencing lines too;
αXDEFINE GETREF⊗↔
αβ*
⊗↔
αxarg attsiz.⊗↔αxset as⊗↔
αe
⊗↑
αxarg page.⊗↔αxset p⊗↔
αxarg line.⊗↔αxset l⊗↔
αc
αxarg as⊗↔⊗↔
αe
β⊗↔⊗↑
αzfilnam⊗↔/αzp⊗↔p/αzl⊗↔l
⊗=⊗=⊗=⊗=⊗=xα⊗↔α1αxsin⊗↔αxbr 30⊗↔
⊗↔αβd
⊗↑αxjo⊗↔
αxarg as⊗↔⊗↑
α1αxarg as⊗↔αa
αxca⊗↔
αβ⊗↓

αXDEFINE GNEXT⊗↔
αxzfiles⊗↔
αβ0αxpoint⊗↔
αv
⊗↔
αβ-αβ1αe
αβ1αxredef filnam⊗↔
αβ1αe
⊗↑
αxpo/e⊗↔
αβ1αβp
αxstopone⊗↔
αβ∞αzGETREF⊗↔
αxstopall⊗↔
αh⊗↔
αβ⊗↓

αXDEFINE XSEARCH⊗↔
αxatta xshead⊗↔
αβ∞αzGNEXT⊗↔
αβ⊗↓

αXDEFINE XSHEAD⊗↔
XSEARCH results:
αβ⊗↓